home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 37 / 64er_Magazin_Sonderheft_37_19xx_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / startadr.>>6000 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  505b  |  29 lines
  1. 100 rem
  2. 110 rem  programm zum aendern der
  3. 120 rem  startadresse eines files
  4. 130 rem  auf  $6000 (koalapainter
  5. 140 rem  bilder start)
  6. 150 rem
  7. 160 rem
  8. 170 input "filename ";a$
  9. 180 :
  10. 190 open 2,8,15
  11. 200 open 3,8,3,"#":gosub340
  12. 210 open 1,8,0,a$ :gosub340
  13. 220 :
  14. 230 print#2,"m-r"+chr$(24)+chr$(0)+chr$(2)
  15. 240 get#2,tr$,se$
  16. 250 print#2,"u1:"3;0;asc(tr$+chr$(0));asc(se$+chr$(0)):gosub340
  17. 260 print#2,"b-p";3;2
  18. 270 print#3,chr$(0);chr$(96);
  19. 280 print#2,"u2:"3;0;asc(tr$+chr$(0));asc(se$+chr$(0)):gosub340
  20. 290 close1
  21. 300 close2
  22. 310 close3
  23. 320 end
  24. 330 :
  25. 340 input#2,f,f$,ft,fs:if f=0 then return
  26. 350 print "disk-fehler"
  27. 360 printf;f$;ft;fs
  28. 370 goto 290
  29.